clear
set more off
set matsize 5000

global lecind    "\\intra\partages\au_amic2\SRCV\TABLES_INITIALES\INPUT\INDIVIDUS"
global lecindsas "\\intra\partages\au_amic2\SRCV_AVRIL2021\TABLES_INITIALES_AVRIL2021\INDIVIDUS"
global ecrind    "\\intra\partages\au_amic2\SRCV_AVRIL2021\BASES_FEV2022_V5\INDIVIDUS\autres_var"
global ecrstat   "\\intra\partages\au_amic2\SRCV_AVRIL2021\STAT_fev2022_V5\2008_2019_new"
global ecrprov   "\\intra\partages\au_amic2\SRCV_AVRIL2021\prov_fev2022_V5"
global ecrtot    "\\intra\partages\au_amic2\SRCV_AVRIL2021\BASES_FEV2022_V5\TOTAL"


/* 1 - EXTRACTION DES VARIABLES SELECTIONNéES */
/* a - fichier STATA 1ère livraison 2008-2017 */
foreach an of numlist 8 {
cd "$lecind"
use individus0`an'_diff.dta, clear
keep ind men age adultvrairep idmenc_* idindc_* /// 
perdre contrat classif ///
actjan1 actjan2 actfev1 actfev2 actmar1 actmar2 actavr1 actavr2 ///
actmai1 actmai2 actjun1 actjun2 actjui1 actjui2 ///
actaou1 actsep1 actoct1 actnov1 actdec1 ///
datdeb datfin datdeb* datfin* ///
actder actdera mofact mofacta ///
mrec nbemp nombremp oceup pl015 pl020 rech ///
pl070 pl072 pl087 pl080 pl085 ///
situad situad* ///
pl210a pl210b pl210c pl210d pl210e pl210f pl210g pl210h pl210i pl210j pl210k pl210l
gen annee_SRCV = 200`an'
order men ind annee_SRCV adultvrairep 
rename idmenc_* idmenc
rename idindc_* idindc
cd "$ecrind"
save autres_indiv_act_`an'.dta, replace
display `an'
count 
}

foreach an of numlist 9 {
cd "$lecind"
use individus0`an'_diff.dta, clear
keep ind men age adultvrairep idmenc_* idindc_* /// 
perdre contrat classif ///
actjan1 actjan2 actfev1 actfev2 actmar1 actmar2 actavr1 actavr2 ///
actmai1 actmai2 actjun1 actjun2 actjui1 actjui2 ///
actaou1 actsep1 actoct1 actnov1 actdec1 ///
datdeb datfin datdeb* datfin* ///
actder actdera mofact mofacta ///
mrec nbemp nombremp oceup pl015 pl020 rech ///
pl087 pl073 pl074 pl075 pl076 pl080 pl085 ///
situad situad* ///
pl211a pl211b pl211c pl211d pl211e pl211f pl211g pl211h pl211i pl211j pl211k pl211l
gen annee_SRCV = 200`an'
order men ind annee_SRCV adultvrairep 
rename idmenc_* idmenc
rename idindc_* idindc
cd "$ecrind"
save autres_indiv_act_`an'.dta, replace
display `an'
count 
}

foreach an of numlist 10/11 {
cd "$lecind"
use individus`an'_diff.dta, clear
keep ind men age adultvrairep idmenc_* idindc_* /// 
perdre contrat classif ///
actjan1 actjan2 actfev1 actfev2 actmar1 actmar2 actavr1 actavr2 ///
actmai1 actmai2 actjun1 actjun2 actjui1 actjui2 ///
actaou1 actsep1 actoct1 actnov1 actdec1 ///
datdeb datfin datdeb* datfin* ///
actder actdera mofact mofacta ///
mrec nbemp nombremp oceup pl015 pl020 rech ///
pl087 pl073 pl074 pl075 pl076 pl080 pl085 nbmois_cho ///
situad situad* ///
pl211a pl211b pl211c pl211d pl211e pl211f pl211g pl211h pl211i pl211j pl211k pl211l
gen annee_SRCV = 20`an'
order men ind annee_SRCV adultvrairep 
rename idmenc_* idmenc
rename idindc_* idindc
cd "$ecrind"
save autres_indiv_act_`an'.dta, replace
display `an'
count 
}

foreach an of numlist 12/13 {
cd "$lecind"
use individus`an'_diffv2.dta, clear
keep ind men age adultvrairep idmenc_* idindc_* /// 
perdre contrat classif ///
actjan1 actjan2 actfev1 actfev2 actmar1 actmar2 actavr1 actavr2 ///
actmai1 actmai2 actjun1 actjun2 actjui1 actjui2 ///
actaou1 actsep1 actoct1 actnov1 actdec1 ///
datdeb datfin datdeb* datfin* ///
actder actdera mofact mofacta ///
mrec nbemp nombremp oceup pl015 pl020 rech ///
pl087 pl073 pl074 pl075 pl076 pl080 pl085 nbmois_cho ///
situad situad* ///
pl211a pl211b pl211c pl211d pl211e pl211f pl211g pl211h pl211i pl211j pl211k pl211l
gen annee_SRCV = 20`an'
order men ind annee_SRCV adultvrairep 
rename idmenc_* idmenc
rename idindc_* idindc
cd "$ecrind"
save autres_indiv_act_`an'.dta, replace
display `an'
count 
}

foreach an of numlist 14/14 {
cd "$lecind"
use individus`an'_diff.dta, clear
keep ind men age adultvrairep idmenc_* idindc_* /// 
perdre contrat classif ///
actjan1 actjan2 actfev1 actfev2 actmar1 actmar2 actavr1 actavr2 ///
actmai1 actmai2 actjun1 actjun2 actjui1 actjui2 ///
actaou1 actsep1 actoct1 actnov1 actdec1 ///
datdeb datfin datdeb* datfin* ///
actder actdera mofact mofacta ///
mrec nbemp nombremp oceup pl015 pl020 rech ///
pl087 pl073 pl074 pl075 pl076 pl080 pl085 nbmois_cho ///
situad situad* ///
pl211a pl211b pl211c pl211d pl211e pl211f pl211g pl211h pl211i pl211j pl211k pl211l
gen annee_SRCV = 20`an'
order men ind annee_SRCV adultvrairep 
rename idmenc_* idmenc
rename idindc_* idindc
cd "$ecrind"
save autres_indiv_act_`an'.dta, replace
display `an'
count 
}

foreach an of numlist 15/17 {
cd "$lecind"
use individus`an'_diff.dta, clear
keep ind men age adultvrairep idmenc_* idindc_* /// 
perdre contrat classif ///
actjan1 actjan2 actfev1 actfev2 actmar1 actmar2 actavr1 actavr2 ///
actmai1  actjun1 actjui1 ///
actaou1 actsep1 actoct1 actnov1 actdec1 ///
datdeb datfin datdeb* datfin* ///
actder actdera mofact mofacta ///
mrec nbemp nombremp oceup pl015 pl020 rech ///
pl087 pl073 pl074 pl075 pl076 pl080 pl085 nbmois_cho ///
situad situad* ///
pl211a pl211b pl211c pl211d pl211e pl211f pl211g pl211h pl211i pl211j pl211k pl211l
gen annee_SRCV = 20`an'
order men ind annee_SRCV adultvrairep 
rename idmenc_* idmenc
rename idindc_* idindc
cd "$ecrind"
save autres_indiv_act_`an'.dta, replace
display `an'
count 
}

/* b - fichier SAS 2nde livraison 2018-2019 */
foreach an of numlist 18/19 {
cd "$lecindsas"
use individus_20`an'.dta, clear
keep ind men age adultvrairep IDMENC_* IDINDC_* /// 
perdre contrat classif ///
actjan1 actjan2 actfev1 actfev2 actmar1 actmar2 actavr1 actavr2 ///
actmai1 actjun1 actjui1 ///
actaou1 actsep1 actoct1 actnov1 actdec1 ///
datdeb datfin DATDEB* DATFIN* ///
actder actdera mofact mofacta ///
mrec nbemp nombremp oceup PL015 PL020 rech ///
PL087 PL073 PL074 PL075 PL076 PL080 PL085 NBMOIS_CHO ///
situad SITUAD* ///
PL211A PL211B PL211C PL211D PL211E PL211F PL211G PL211H PL211I PL211J PL211K PL211L

rename DATDEB2 datdeb2
rename DATDEB3 datdeb3
rename DATDEB4 datdeb4
rename DATDEB5 datdeb5
rename DATDEB6 datdeb6
rename DATDEB7 datdeb7
rename DATDEB8 datdeb8
rename DATDEB9 datdeb9
rename DATDEB10 datdeb10
rename DATDEB11 datdeb11
rename DATDEB12 datdeb12
rename DATDEB13 datdeb13
rename DATDEB14 datdeb14
rename DATDEB15 datdeb15
rename DATFIN2 datfin2
rename DATFIN3 datfin3
rename DATFIN4 datfin4
rename DATFIN5 datfin5
rename DATFIN6 datfin6
rename DATFIN7 datfin7
rename DATFIN8 datfin8
rename DATFIN9 datfin9
rename DATFIN10 datfin10
rename DATFIN11 datfin11
rename DATFIN12 datfin12
rename DATFIN13 datfin13
rename DATFIN14 datfin14
rename DATFIN15 datfin15
rename IDMENC_* 	idmenc
rename IDINDC_* 	idindc
rename PL015 pl015
rename PL020 pl020
rename PL087 pl087
rename PL073 pl073
rename PL074 pl074
rename PL075 pl075
rename PL076 pl076
rename PL080 pl080
rename PL085 pl085
rename NBMOIS_CHO nbmois_cho
rename SITUAD2 situad2
rename SITUAD3 situad3
rename SITUAD4 situad4
rename SITUAD5 situad5
rename SITUAD6 situad6
rename SITUAD7 situad7
rename SITUAD8 situad8
rename SITUAD9 situad9
rename SITUAD10 situad10
rename SITUAD11 situad11
rename SITUAD12 situad12
rename SITUAD13 situad13
rename SITUAD14 situad14
rename SITUAD15 situad15
rename PL211A pl211a
rename PL211B pl211b
rename PL211C pl211c
rename PL211D pl211d
rename PL211E pl211e
rename PL211F pl211f
rename PL211G pl211g
rename PL211H pl211h
rename PL211I pl211i
rename PL211J pl211j
rename PL211K pl211k
rename PL211L pl211l

gen annee_SRCV = 20`an'
order men ind annee_SRCV adultvrairep 
cd "$ecrind"
save autres_indiv_act_`an'.dta, replace
display `an'
count 
}


/* 2 - EMPILEMENT DES TABLES */
clear 
use "$ecrind\autres_indiv_act_8.dta", clear
append using 	"$ecrind\autres_indiv_act_9.dta" "$ecrind\autres_indiv_act_10.dta" "$ecrind\autres_indiv_act_11.dta" ///
				"$ecrind\autres_indiv_act_12.dta" "$ecrind\autres_indiv_act_13.dta" "$ecrind\autres_indiv_act_14.dta" ///
				"$ecrind\autres_indiv_act_15.dta" "$ecrind\autres_indiv_act_16.dta" "$ecrind\autres_indiv_act_17.dta" ///
				"$ecrind\autres_indiv_act_18.dta" "$ecrind\autres_indiv_act_19.dta" 
sort  men ind annee_SRCV idmenc  
order men ind annee_SRCV idmenc 
save "$ecrind\autres_individus_act_2008_2019.dta", replace


/* 3 - MISE EN FORME DES VARIABLES */
* 3-1 DESTRING
clear
use "$ecrind\autres_individus_act_2008_2019.dta", clear
destring contrat, replace
destring perdre, replace
destring classif, replace
destring actjan1, replace
destring actjan2, replace
destring actfev1, replace
destring actfev2, replace
destring actmar1, replace
destring actmar2, replace
destring actavr1, replace
destring actavr2, replace
destring actmai1, replace
destring actmai2, replace
destring actjun1, replace
destring actjun2, replace
destring actjui1, replace
destring actjui2, replace
destring actaou1, replace
destring actsep1, replace
destring actoct1, replace
destring actnov1, replace
destring actdec1, replace
destring actder, replace
destring actdera, replace
destring mofact, replace
destring mofacta, replace
destring mrec, replace
destring nbemp, replace
destring oceup, replace
destring pl015, replace
destring pl020, replace
destring rech, replace
destring situad, replace
destring situad2, replace
destring situad3, replace
destring situad4, replace
destring situad5, replace
destring situad6, replace
destring situad7, replace
destring situad8, replace
destring situad9, replace
destring situad10, replace
destring situad11, replace
destring situad12, replace
destring situad13, replace
destring situad14, replace
destring situad15, replace

save "$ecrind\autres_individus_act_2008_2019_def.dta", replace


/* 4 - CREATION DE LA VARIABLE YEAR ET ORDRE DES VARIABLES */
clear
use "$ecrind\autres_individus_act_2008_2019_def.dta", clear
gen year = annee_SRCV - 1
sort  men ind annee_SRCV idmenc  
order men ind annee_SRCV year adultvrairep age idmenc idindc perdre contrat classif ///
datdeb datfin situad datdeb2 datfin2 situad2 datdeb3 datfin3 situad3 datdeb4 datfin4 situad4 datdeb5 datfin5 situad5 datdeb6 datfin6 situad6 datdeb7 datfin7 situad7 datdeb8 datfin8 situad8 ///
datdeb9 datfin9 situad9 datdeb10 datfin10 situad10 datdeb11 datfin11 situad11 datdeb12 datfin12 situad12 datdeb13 datfin13 situad13 datdeb14 datfin14 situad14 datdeb15 datfin15 situad15 /// 
actjan1 actfev1 actmar1 actavr1 actmai1 actjun1 actjui1 actaou1 actsep1 actoct1 actnov1 actdec1 actjan2 actfev2 actmar2 actavr2 actmai2 actjun2 actjui2 ///
actder actdera mofact mofacta mrec nbemp nombremp oceup pl015 pl020 rech ///
pl070 pl072 pl073 pl074 pl075 pl076 pl080 pl085 pl087 nbmois_cho ///
pl210a pl210b pl210c pl210d pl210e pl210f pl210g pl210h pl210i pl210j pl210k pl210l ///
pl211a pl211b pl211c pl211d pl211e pl211f pl211g pl211h pl211i pl211j pl211k pl211l
save "$ecrind\autres_individus_act_2008_2019_def.dta", replace


/* 5 - CREATION DES VARIABLES PL211A_NEW à PL211L_NEW 
       combinant les modalités de pl210 et pl211 
	   afin d'obtenir des séries sur toute la période de 2008 à 2019
	   réduction du nombre de modalités à 8 (la modalité 9 étant toujours absent : le service national a été aboli en 2001) 
	   */
clear
use "$ecrind\autres_individus_act_2008_2019_def.dta", clear
gen pl211a_new = pl211a
replace pl211a_new = 6  if pl211a == 7
replace pl211a_new = 7  if pl211a == 6
replace pl211a_new = 8  if pl211a == 10 
replace pl211a_new = 8  if pl211a == 11 
replace pl211a_new = pl210a if annee_SRCV == 2008

gen pl211b_new = pl211b
replace pl211b_new = 6  if pl211b == 7
replace pl211b_new = 7  if pl211b == 6
replace pl211b_new = 8  if pl211b == 10 
replace pl211b_new = 8  if pl211b == 11 
replace pl211b_new = pl210b if annee_SRCV == 2008

gen pl211c_new = pl211c
replace pl211c_new = 6  if pl211c == 7
replace pl211c_new = 7  if pl211c == 6
replace pl211c_new = 8  if pl211c == 10 
replace pl211c_new = 8  if pl211c == 11 
replace pl211c_new = pl210c if annee_SRCV == 2008

gen pl211d_new = pl211d
replace pl211d_new = 6  if pl211d == 7
replace pl211d_new = 7  if pl211d == 6
replace pl211d_new = 8  if pl211d == 10 
replace pl211d_new = 8  if pl211d == 11 
replace pl211d_new = pl210d if annee_SRCV == 2008

gen pl211e_new = pl211e
replace pl211e_new = 6  if pl211e == 7
replace pl211e_new = 7  if pl211e == 6
replace pl211e_new = 8  if pl211e == 10 
replace pl211e_new = 8  if pl211e == 11 
replace pl211e_new = pl210e if annee_SRCV == 2008
gen pl211f_new = pl211f
replace pl211f_new = 6  if pl211f == 7
replace pl211f_new = 7  if pl211f == 6
replace pl211f_new = 8  if pl211f == 10 
replace pl211f_new = 8  if pl211f == 11 
replace pl211f_new = pl210f if annee_SRCV == 2008

gen pl211g_new = pl211g
replace pl211g_new = 6  if pl211g == 7
replace pl211g_new = 7  if pl211g == 6
replace pl211g_new = 8  if pl211g == 10 
replace pl211g_new = 8  if pl211g == 11 
replace pl211g_new = pl210g if annee_SRCV == 2008

gen pl211h_new = pl211h
replace pl211h_new = 6  if pl211h == 7
replace pl211h_new = 7  if pl211h == 6
replace pl211h_new = 8  if pl211h == 10 
replace pl211h_new = 8  if pl211h == 11 
replace pl211h_new = pl210h if annee_SRCV == 2008

gen pl211i_new = pl211i
replace pl211i_new = 6  if pl211i == 7
replace pl211i_new = 7  if pl211i == 6
replace pl211i_new = 8  if pl211i == 10 
replace pl211i_new = 8  if pl211i == 11 
replace pl211i_new = pl210i if annee_SRCV == 2008

gen pl211j_new = pl211j
replace pl211j_new = 6  if pl211j == 7
replace pl211j_new = 7  if pl211j == 6
replace pl211j_new = 8  if pl211j == 10 
replace pl211j_new = 8  if pl211j == 11 
replace pl211j_new = pl210j if annee_SRCV == 2008

gen pl211k_new = pl211k
replace pl211k_new = 6  if pl211k == 7
replace pl211k_new = 7  if pl211k == 6
replace pl211k_new = 8  if pl211k == 10 
replace pl211k_new = 8  if pl211k == 11 
replace pl211k_new = pl210k if annee_SRCV == 2008

gen pl211l_new = pl211l
replace pl211l_new = 6  if pl211l == 7
replace pl211l_new = 7  if pl211l == 6
replace pl211l_new = 8  if pl211l == 10 
replace pl211l_new = 8  if pl211l == 11 
replace pl211l_new = pl210l if annee_SRCV == 2008

label variable pl211a_new	"Activité principale en janvier N-1"
label variable pl211b_new	"Activité principale en février N-1"
label variable pl211c_new	"Activité principale en mars N-1"
label variable pl211d_new	"Activité principale en avril N-1"
label variable pl211e_new	"Activité principale en mai N-1"
label variable pl211f_new	"Activité principale en juin N-1"
label variable pl211g_new	"Activité principale en juillet N-1"
label variable pl211h_new	"Activité principale en août N-1"
label variable pl211i_new	"Activité principale en septembre N-1"
label variable pl211j_new	"Activité principale en octobre N-1"
label variable pl211k_new	"Activité principale en novembre N-1"
label variable pl211l_new	"Activité principale en décembre N-1"

save "$ecrind\autres_individus_act_2008_2019_def.dta", replace
